﻿Imports System.Data.SqlClient

Public Class FrmTimKiemThuaHoSoBienDong
    Private Sub NapDonViHuyen()
        Dim tbl As DataTable
        Dim dbAdapter As SqlDataAdapter
        Dim dbComm As SqlCommand
        dbComm = New SqlCommand(" select * from TENHUYEN", ob_cnn)
        dbAdapter = New SqlDataAdapter(dbComm)
        tbl = New DataTable()
        dbAdapter.Fill(tbl)
        CmbHuyen.DisplayMember = "T_huyen"
        CmbHuyen.ValueMember = "maH"
        CmbHuyen.DataSource = tbl
        ob_cnn.Close()
    End Sub
    Private Sub CmbHuyen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbHuyen.SelectedIndexChanged
        ' load ten xa
        Dim tbl As DataTable
        Dim dbAdapter As SqlDataAdapter
        Dim dbComm As SqlCommand
        dbComm = New SqlCommand(" select * from TenXa where mahuyen = '" & CmbHuyen.SelectedValue.ToString & "' ", ob_cnn)
        dbAdapter = New SqlDataAdapter(dbComm)
        tbl = New DataTable()
        dbAdapter.Fill(tbl)
        CmbXa.DisplayMember = "TenXa"
        CmbXa.ValueMember = "maxa"
        CmbXa.DataSource = tbl
        ob_cnn.Close()
    End Sub
    Private Sub NapVaoTexBoxThuaDat()
        'TextSoHoSo.DataBindings.Clear()
        'TextSoHoSo.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "sohoso")
        'TextSoThua.DataBindings.Clear()
        'TextSoThua.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "thuadat")
        'TextToBD.DataBindings.Clear()
        'TextToBD.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "tobando")
        'TextDienTich.DataBindings.Clear()
        'TextDienTich.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Dientich")
        'CmbLD.DataBindings.Clear()
        'CmbLD.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Loaidat")
        'CmbLoaiTaiLieu.DataBindings.Clear()
        'CmbLoaiTaiLieu.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "TenLoaitailieu")
        'TextTenChu.DataBindings.Clear()
        'TextTenChu.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Tenchu")
        'TextDiaChi.DataBindings.Clear()
        'TextDiaChi.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Diachi")
        'CmbTinhTrang.DataBindings.Clear()
        'CmbTinhTrang.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Tentinhtrang")
        'cbLoaiBienDong.DataBindings.Clear()
        'cbLoaiBienDong.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "TenLoaiBD")
        'cmbPhong.DataBindings.Clear()
        'cmbPhong.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Tenphong")
        'CmbNgan.DataBindings.Clear()
        'CmbNgan.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Tenngan")
        'CmbKe.DataBindings.Clear()
        'CmbKe.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "TenKe")
        'CmbKho.DataBindings.Clear()
        'CmbKho.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "Tenkho")
        'TextMaBienDong.DataBindings.Clear()
        'TextMaBienDong.DataBindings.Add("Text", DataGridViewThuaDat.DataSource, "MaBienDong")

    End Sub
    Private Sub NapDataGridViewThuaDat()
        Dim tbl As DataTable
        Dim dbAdapter As SqlDataAdapter
        Dim dbComm As SqlCommand
        dbComm = New SqlCommand("select thua.sohoso, thua.thuadat, thua.tobando, thua.dientich, thua.loaidat, tl.tenloaitailieu, " &
                                "ten.Tenchu, ten.Diachi, tt.tentinhtrang, p. tenphong , ng.Tenngan, k.tenke, kh.tenkho, MaBienDong , lbd.TenLoaiBD" &
                               " From THUADATBIENDONG thua, TENCHUBIENDONG ten, DMTailieu tl, DMtinhtrang tt, LoaiBD lbd, DMPhong p, DMNgan ng, DMke k, DMkho kh  " &
                               " WHERE thua.thuadat = '" & TextSoThua.Text & "' " &
                               " and thua.xaid = '" & CmbXa.SelectedValue.ToString & "' " &
                               " and thua.huyenid = '" & CmbHuyen.SelectedValue.ToString & "' " &
                               " and thua.loaitailieu = tl.maloaitailieuID " &
                               " and thua.sohoso = ten.sohoso " &
                               " and ten.tinhtrangid = tt.matinhtrangid " &
                               " and ten.LoaiBienDongID = lbd.MaBD " &
                               " and ten.phongid = p.maphongid " &
                               " and ten.nganid = ng.manganid " &
                               " and ten.keid = k.makeid " &
                               " and ten.khoid = kh.makhoid ", ob_cnn)
        dbAdapter = New SqlDataAdapter(dbComm)
        tbl = New DataTable()
        dbAdapter.Fill(tbl)
        DataGridViewThuaDat.DataSource = tbl
        If tbl.Rows.Count = 0 Then
            MessageBox.Show("Không tìm thấy thông tin ! ")
        End If
        ob_cnn.Close()
    End Sub
    Private Sub ButtonTimKiem_Click(sender As System.Object, e As System.EventArgs) Handles ButtonTimKiem.Click
        NapDataGridViewThuaDat()
    End Sub
    Private Sub FrmTimKiemThuaHoSoBienDong_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        NapDonViHuyen()
        DataGridViewThuaDat.RowsDefaultCellStyle.BackColor = Color.Beige
        DataGridViewThuaDat.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure

    End Sub

    Private Sub ButtonThoat_Click(sender As System.Object, e As System.EventArgs) Handles ButtonThoat.Click
        Me.Close()
    End Sub

    Private Sub DataGridViewThuaDat_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewThuaDat.CellClick
        NapVaoTexBoxThuaDat()
    End Sub

    Private Sub DataGridViewThuaDat_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridViewThuaDat.CellContentClick

    End Sub

    Private Sub DataGridViewThuaDat_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridViewThuaDat.RowPostPaint
        Dim strRowNumber As String = (e.RowIndex + 1).ToString
        While (strRowNumber.Length < DataGridViewThuaDat.RowCount.ToString.Length)
            strRowNumber = "0" & strRowNumber
        End While
        Dim Size As SizeF = e.Graphics.MeasureString(strRowNumber, MyBase.Font)
        If DataGridViewThuaDat.RowHeadersWidth < Size.Width + 20 Then DataGridViewThuaDat.RowHeadersWidth = Size.Width + 20
        Dim b As Brush = SystemBrushes.ControlText
        e.Graphics.DrawString(strRowNumber, MyBase.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y +
                              ((e.RowBounds.Height - Size.Height) / 2))
    End Sub

    Private Sub TextSoThua_TextChanged(sender As Object, e As EventArgs) Handles TextSoThua.TextChanged

    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click

    End Sub
End Class